MacFormat España 24/MacFormat n. 24 (Spain)/MacFormat 24.bin/Demos/Jungle Activated!/JungleActivated Demo/stdsound.dxr/00008.ls

Text File | 1996-10-14 | 349 b | 15 lines

on mouseUp
  global gBackgroundSound, gDirectory
  if the clickOn = gBackgroundSound then
    exit
  end if
  set gBackgroundSound to the clickOn
  sound playFile 2, gDirectory & "Sounds:Bckgrd" & gBackgroundSound & ".aif"
  repeat with counter2 = 1 to 6
    puppetSprite(counter2, 0)
  end repeat
  tell the stage
    stopStdSound()
  end tell
end